RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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Line output (emphasis -=- bolding and underlinin 1b-se -1984 00:49:27 AX-11 Bliss-32 V4.0-7 Page 
° 12-8 08- 1 3be 00: be.86 RUNOFF .SRCJLOEMPH. Bit: ° 

001 ZTITLE bing output (emphasis -- bolding and underlining); overstrikin 3 
oy a at a ee Lek om : 
= - F 
004 %BL1SS32C 3 
OR? ADDRESSING MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) : 
809 de : 
S385 gecim 7 
Bei9 \ i eee eeeeeeeeeeee eee eee eReReeeeeeeeeeeeeededteeeeneneenteneeeneeteeeeeneeee : 
'e * Ps 
pore 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 * 3 
01 1 '® DIGITAL EQUIPMENT eGORPORATION, MAYNARD. MASSACHUSETTS. * 3 
Bot : is ALL RIGHTS RESERVE 8 3 
. & ° 
0016 1 ! noe SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd " $ 
0017 1 ! Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 
0018 1 !* ONELUS TON OF THE ABOVE COPYRIGHT NOTICE. THIS SOF RE OR ANY OTHER * 3 
0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
O05: : * TRANSFERRED. * ; 
fe « 3 
ies 1 !'* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE x $ 
ooSe 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * é 
4 2 : = CORPORATION. * 3 
'® e r 
0097 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
80 . : i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
. © Py 
$080 1 !e e : 
ita : [samen eseneeenshovenennsenennenensantnnennennenennEnNnEnanonnsonanntinnONERS P 
$033 1 ise : 
Bee \ : FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS : 
ORS : ABSTRACT: Translation from intermediate format to final output. : 
0038 1: ; 
sit : } ENVIRONMENT: Transportable : 
0041 | AUTHOR: K. A. Dawson CREATION DATE: December 1983 : 


oo 


a> PR oe 8S Oe 6S Fe Oe FS FS OS FS FS Oe FS FS 6G OS Fe FS FS OS FS FS ES 6G FS 6S Fe He 8S SE FEE FETE FTE FS SETS CHES *S SS *SHE*S HSCS *S Stara tera ters 


LOEMPH.BLI; 


foe a Se he 
RUNOFF. SRC ; 


nwr 
OaAnN ~~ 
oe ee co 
ow oa 
TO = 
om . 
on- «ao 
= 
wv a 
coco N 
ow N 
-— 
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aa 
—-e&o 
mm c 
‘8s o 
Or w 
Cet ed z 
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c a 
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c = 
— ee 
= - 
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a pe 4 
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ao ~ _— 
c . Oo 
—- °o o 
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fe] ai a 
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i c 
a o 
~~ oe 
7) vn > 
_ -_- @ 
un" > _— 
a *s* a oO 
= cw O&O 
an - — 
Ee. “ 
eo _ - 
“~~ - 2 
ae & 
-- © = ‘ 
2x # i 
a Pe ee 
-c 
30 fSe3Tr3crccnre nr 
nt 
er MTN OrR-COO 
c> Twyysse 
-e& OOCCOCSCO 
az OOCOOCOOCOCOOO 
zS Toor ooo 
= ; vwvwasvwn 
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LOEMPH Line output (emphasis == bolding and underlinin 18-5 -Sep-1984 & 90:49 414 AX-11 Bliss-32 V4.0-74 Page 3 
v04-000 Module Level Declarations 14-Sep-1984 5 RUNOFF .SRCJLOEMPH.BLI; (3) 
H § 6 } ZSBTTL ‘Module Level Declarations’ 

: 54 ; . 

3 é 7 } TABLE OF CONTENTS: 

: ae Se 

3 : ° : REQUIRE ‘REG:RNODEF'; ' RUNOFF variant definitions 
: 60 188 1 FORWARD ROUTINE 

;| 66} 189 1 semph : _NOVALUE 

Bie 190 1 openph : NOVALUE 

ae O19) 1 IF LNOT THEN 

: 64 136 1 inemph : NOVALUE 

.° 0195 1 XFI 

3 66 U 0194 1 XIF DSRPLUS XTHEN i 

4 67 u 0195 1 vtemph : NOVALUE 

3 68 9138 1 2FI 

3 69 U 0197 1 IF FLIP XTHEN ° 

3 70 u 0198 1 flemph : NOVALUE 

- 4! 3h 4 : ZF I 

Ree 0201 1 : 

3; (74 0 O 1! 

3 75 020 1 ! INCLUDE FILES: 

: 76 0204 1! 

3 a4 0206 : LIBRARY "NXPORT:XPORT'; ! XPORT Library 

: 79 U 0207 1 XIF DSRPLUS XTHEN 

: 80 U 0208 1 LIBRARY ‘REQ:DPLLIB'; ! DSRPLUS BLISS Library 

; 81 O50 1 ZELS 

; 82 0210 1 LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library 

PR Bye) 

>: 85 $538 1 | MACROS: 

3 86 0214 1! 

, OF 0215 1 MACRO 

3 88 ™ 0216 1 write euphes ts = 

3 89 4 bsiz 1 BEG! 

: 690 ™0218 1 LOCAL 

3 2 4 8535 1 ptr; 

; ¥ M0220 1 tr = .work ustring(STRSA_POINTER 

a M0221 1 NCR i FROM™? TO .work sic ingt teri LENGTH] DO 

: a . 0 ; : fs_wehar (fra, CHSRCHAR_A(ptr) J; 

: 96 03 ce %; 

of Bad 

: 99 : 1 | EQUATED SYMBOLS: 

= Fe 

: 198 0 1 EXTERNAL LITERAL 

: 132 : rintes : UNSIGNED (8); 

: 105 1 LITERAL : 
; 196 4 1 . max _output_line length = 250, ! Reasonable maximum Length for an output Line. 
: 107 0 :? 1 backspace = %. ‘rot . 

; 108 0236 1 escape = %0'33'; 


<- 
eo 


4 4 
LOEMPH Line output (emphasis -- bolding and underlinin 16-Sep-1984 : 
Svel bet ° 12286871382 99: 


: AX-11 Bliss-32 V4.0-74 Pa 4 
v04-000 Module Level Declarations gf S siden - 


RUNOFF .SR PH.BLI; (3) 


OWN STORAGE: 


oO 
oO 
WIGS 
—~ 


PWN" OCONAOU EW" OOM 


OWN 
work string ; S$STR DESCRIPTOR ( CLASS=DYNAMIC, STRING=(0,0) ); 


EXTERNAL REFERENCES: 


EXTERNAL 

fra : fixed_string, 

outopt : VECTOR Coutopt_sizel, 
tsf : tsf_definition; 


EXTERNAL ROUTINE 
clh, er 


3; 4} 
a 
; 3 
% 
; 3 
3 
3 4 
3; ¥ 
3 3 
a 
; 7 
; 3 
ci % 
; 4% 
3 3 
a 
jo 3 
3. % 


Ai FUN —OOONOUS WO 
DUS BS BS PE EEE 
ataietabatatatadadahadbabababababetiad 


NOPOROPORONONY 3 2 


fofololofoloiei=) 


rororore 


ine 
SEMP 
55 
3 
3 
60 
o 
83 
64 
2 
7 
68 
69 
70 
4 
18 
74 
75 
76 
77 
78 
79 
80 
81 
i 
4 


a DD 8 ed ed ed od 


OOOCOOCOOCSCOCOCOCOCOOCOCOO ar 


MOrornons 


IE BS BB EEE PAWN 
NOU SW —O OO NAUSWN MOOD NOUSWN “ODO ONOULSWR OOO 


pepo jololelololojlololo) 
Mrororofnoroponofory 


SN NNN NNO AA AOAOOOOOOMMIUIMIWIIM 
OOCOCCOCOOOO0O0O0O0O0OOMWMWWOMOCD0D 


Go 0000 
=x 
PID IAAI III II a hk kk kh tk 


Bee Se Be Se Be ee Fe Se Be Be FH Se Se Se Be Be Se Se Be Ge Se Se Se See Se Be Bs Os ws Be Se Ge Oe Be Ge FH Se Se Ge Oe SH He Bee Se Se Se Se Se Se See Se Sees 
el el el lt el elt eel el el el el el el el cl el el el el el el cl cl ell elt el eel cel cel cel el eel el eel 


ee ee ne ie we eolojololololeolelolololo) 
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—=—300 


N 1 
output (emphasis == bolding and underlinin 16-Sep-1984 00:49:27 AX-11 Bliss-32 V4.0-74 
== do emphasis by backspscing 122868718 4 99568386 RUNOFF .SRCILOEMPH-BLI; 


ZSBITL 'BSEMPH == do emphasis by backspacing’ 
GLOBAL ROUTINE BSEMPH 
( enerecter 


» adr_emphasis_bits 

» overstrike_count 

» overstrike_char 

» overstrike_seq 
pass _cntr 

5: NOVALUE = 


'e4 


! FUNCTIONAL DESCRIPTION: 


BSEMPH handles emphasis -- bolding and underlining =-- if the 
user said /BACKSPACE on the command Line. 


i FORMAL PARAMETERS: 


] 
' 

i] 

' 

' 

; character is the current character to be output (emphasized). 
: talics Not used by this routine == passed for conformance only. 
: adr_emphasis_bits Address of a word rs Sn information on current- 
; character and previous-character bold and underline. 
: overstrike_count Number of characters in an overstrike sequence. 
‘ overstrike_char The character with which to overstrike the previous one. 
§ overstrike_seq CHSPTR to the start of an overstrike sequence. 
pass_cntr Count of which pass is happening. 

i] 

' 

' 

1 

i] 

' 

' 

' 

. 


i IMPLICIT INPUTS: None 
i IMPLICIT OUTPUTS: None 


i ROUTINE VALUE: 
i COMPLETION CODES: None 


i SIDE EFFECTS: None 
BEGIN 
BIND emphasis_bits = .adr_emphasis_bits; 
LOCAL 
count; 


: Before processing the character, make sure that (1) there will be sufficient space in the 
! output buffer, an ) the output Line is not too long for the operating system to handle. 
if .fs_length (fra) GTR (.fs_maxsize (fra) - 20) ! Need at least 20 characters. 


-fs_length (fra) GTR max_output_line_Llength ! Reasonable output-Line maximum Length 
GIN ! Output what's been built up 

clh (clh_out_nocrlf); ! so far and start filling a 

Es init Tfra); ! new buffer 


IF .emph_current_bold 
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LOEMPH Line output (emphasis -- bolding and underlinin 18-56 -1984 00:49:27 AX-11 Bliss-32 V4.0-742 Page 

v04-000 BSEMPH == do emphasis by backspacing 14-Sep-19 4 13:08:56 RUNOFF ..SRCJLOEMPH.BLI; 1 : aS V 

> 185 0312 HEN | y | 
: 186 9 1 ! Protective code against /BOLD:<ridiculous amount> and - 
: HY 0 3 count = MIN (10, .outopt_bldn + 1) ! stops buffer overflow. ‘ 
: 189 16 count = 1; : ¢ 
: 190 1 ze § 
; 9 18 ! Repeatedly process the character as many times as it is a 
: 135 0319 ! to output. In most cases, this is once. But if fhe ; 
; 0320 i character is bolded it will be scanned several times. m4 
: 1% 3 1 INCR i FRON 1 10 .count DO : 
3 136 8 : ! If bolding, output a backspace before each re-scan . 4 
> 19 324 i of the character. ; 
; 198 0369 IF .i GTR 1 a 
> 199 0326 THEN : ¢ 
: 200 bagi fs_wchar (fra, backspace); : 
3; 20) B3 8 : 
; 308 329 ' Look for underlining  § 
: 20 0330 ; IF .emph_current_under line 4 
> 204 0331 THEN ; 
; 205 0333 4 BEGIN ee 
: 206 0333 4 fs_wchar (fra, .outopt_und_char); of 
; 207 0334 4 : 
; 208 0335 4 ! Don't backspace if underscore is non-spacing. i. 
; 209 0336 4 IF NOT .outopt_und_nosp : 
: 210 0337 4 THE a9 
3: ell 0338 5 fs_wchar (fra, backspace) e 
$12 0339 3 END; | . | 
ee ak 0340 3 = 5 
3: 214 0341 3 ' Output the deferred character. : ¢ 
> 215 030g 3 fs_wchar (fra, .character); Z-4 
; 216 0343 3 os 
: 217 0344 3 ' Look for overstrike. : ¢ 
; 318 0345 3 IF .overstrike_count NEQ 0 : 
; 219 0346 3 THEN a 
: 220 0347 4 BEGIN 2 ¢ 
: 221 0348 4 LOCAL 
; 33¢ 0349 4 temp_seq_ptr; ; ef 
B. €e 0350 4 temp_seq_ptr = .overstrike_seq; e+ 4 
> 224 0351 4 4 
; 225 033¢ 4 INCR i FROM 1 TO .overstrike_count DO 4 
3 226 0353 5 BEGIN : 
: «ger 0354 5 ! Rescan overstrike sequence to take care of Bet 
: 3 8 032? 5 ' multiple overstriking. ef 
: 5 56 5 OCAL mf 
: 230 Oree 5 x; ef 
3 $3 358 5 2 | 
3 % B28 5 x = CHSRCHAR_A (temp_seq.ptr); ! Point to the ‘o'; st 
; 23 360 5 x = CH$RCHAR_A (temp_seq_ptr); ! Point to overstrike character a 4 
3 234 0361 : x = CHSRCHAR_A (temp_seq_ ptr); ! Get character, advance g ( 
: oe 306 fs_wchar (fra, backspace); | : | 
: 236 He 5 fs-wehar (fra, .x); &{ 
: 237 64 4 END; 3 
: 238 365 4 END 4 
; ew 308 3 END a4 
3 40 367 1 END; ' End of BSEMPH ; 


Ln sess 


e | 
LUEMPH Line output (emphasis == bolding and underlinin bese -1984 00:49:27 AX-11 Bliss-32 V4.0=-74 P 7 

v04-000 BSEMPH == do oaphesis by backspscing 12288-1382 90: 06,84 RUNOFF SREILOEMPH BL 144 ee vee V04 
: 
-TITLE LOEMPH Line output (emphasis -- bolding and und | : 

Ps rtvin Ps 
JIDENT \v04=000\ | : 
-PSECT $OWNS,NOEXE,2 4 
ag 
0000 00000 WORK_STRING: ae 
«WORD 0 : ] 
if 3 00002 BYTE 14, 2 : oo 
00000000 00004 eLONG 0 3 : ‘ 
.EXTRN RINTES, FRA, OUTOPT ae 
EXTRN TSF, CLH, ERMS 3 | 
-PSECT $CODE$,NOWRT,2 ; 
007c¢ 00000 -ENTRY BSEMPH, Save R2,R3,R4,R5,R6 3 0256 : | 
56 00000000G EF 9E 00002 MOVAB OUTOPT+20, R6 3 | 
55 00000000G EF 2 00009 MOVA FRA+4 : oe 
50 04 AS 14 ¢€3 00010 SUBL3 #20, FRA+8, RO : 0302 | 
50 08 AS Di 00015 CMPL FRA+12, RO : oa 
0A 14 00019 BGTR 1 : S| 
QOOOOOFA BF 08 AS D1 00018 CMPL FRA+12, #250 + 0304 | 
15 15 0002 BLEQ 2$ : 7 
OB DD 00025 1$ PUSHL #11 ; 0307 ae | 
00000000G_ EF 01 FB 00027 CALLS #1, CLH : ae | 
08 AS D4 0002E CLRL FRA+1 : 0308 3 7 
FC AS 0c AS 9E 00031 MOVAB FRA+16, FRA : ei 
65 FC AS DO 00036 MOVL FRA, FRA+4 : : 7 
11 oc «BC 01 £1 0003A 2$ BBC #1, @ADR_EMPHASIS BITS, 4$ 3 0311 ee | 
50 66 01 C1 0003F ADDL3 #1, OUTOPT+20, RO : 0314 hae | 
OA 50 D1 00043 CMPL RO, #10 5 ea | 
03 15 00046 BLEQ 3$ : gs i 
50 OA DO 00048 MOVL #10, RO : Te | 
54 50 DO 00048 3$: MOVL RO, COUNT 3 gs. i 
03 11 000%E BRB 5$ : Ee | 
54 01 DO 00050 4$ MOVL #1, COUNT ; 0316 ee 
52 D4 00053 5$ CLRL I 3 0345 s 7 
oe: 1% Beb28 BRB 11$ 3 ee 
01 52 D1 Baoe 6$: CMPL J #1 3; 0325 a 
09 15 0005A BLE $ : | 
00 =s«iBS 8 90 0005C MOVB #8, aFRA+4 3; 0327 ae | 
65 6 B86 INCL FRA+4 3 a | 
08 a5 D 6 INCL FRA+12 : 4 
17 Oc BC 02 Fi 0065 7$: BBC #2, @ADR_EMPHASIS_BITS, 8$ : 0330 ; 1 
00 = B5 EC A6 90 O006A MOVB  OUTOPT, SFRA+4 > 033 : 1 
65 D6 oper INCL FRA+4 3 Bi 
08 AS 06 00071 INCL FRA+12 3 7 
09 FO Ab 3 0074 BLBS TOPT+4, 8$ ; 0336 | 
00. =—««BS rt: 078 MOVB #8, aFRA+4 : 0338 | 
65 D6 0007C INCL  FRA+4 : a | 
08 AS 6 O007E INCL FRA*12 : | : 7 
00. =«sBS 4 ag 1 8$: MOVB CHARACTER, @FRA+4 : 0342 Se 
65 D INCL FRA+4 ; | Be | 
08 a5 D 0 INCL FRA+12 ; ae | 
10 AC 05 00088 TSTL OVERSTRIKE_COUNT ; 0345 | a | 


SS } 


D 2 
LOEMPH Line output (emphasis -- bolding and underlinin 16-Sep-1984 49:27 AX-11 Bliss-32 V4.0-74 Page 8. 
v04-000 BSEMPH = do emphasis by backspscing 12280871382 99560:85 RUNOFF ..SRCJLOEMPH.BLI; . (4), 
28 (1 3 BEQL 11$ : 
50 18 af D MOVL OVERSTRIKE_SEQ, TEMP_SEQ_PTR ; 9329 
5 D4 94 CLRL i ; 035 
1B (11 RB 0$ : 
A 98 9$ MOVZBL (TEMP_SEQ_PTR)+, X 3; 0359 
A 00098 MOVZBL (TEMP-SEQ"PTR)+, x ; 0360 
A 9 MOVZBL (TEMP-SEQ"PTR)+, 3 30) 
00. =«6B 0 A MOVB #8, aFRA+Z : 2 
65 D A INCL  FRA+4 : 
08 A 8 A INCL FRA+12 : 
00 BS 5 AA MOVB X, @FRA+4 s 
65 A INCL  FRA+4G : 
08 AS OD B INCL FRA+12 3 
EO 51 10 aC F 0B3 10$: AOBLEQ OVERSTRIKE_COUNT, I, 9$ : 
9B 52 54 F 0B8 11$: AOBLEQ COUNT, I, 8$ : 
04 000BC RET : 


; Routine Size: 189 bytes, Routine Base: S$CODE$ + 0000 


Be Oe Ge Se Se Se Ge Ge Se Se Se Se Se Ge Se Se Ge Se Se Se Se Se Se Se Sete Se Se Se Se Se Se Se ee Se See Se Se Se Se ae tease 


LOEMPH 
v04-000 


Line 
OPEM 
, a 68 1 
en 
; 2446 8 7 
> 245 's Be 
; rf 0 ue 1 
; 6 8 ¢ ae 
; 248 74 «1 
: 249 0375 1 
: 250 0 6 1 
: 251 0377 1 
3 526 0378 1 
3 $2 8 79 1! 
3 4 80 1! 
2 259 0381 1 
: 256 Bees a 
3 gor 0383 1! 
s gon 0384 1! 
; 259 Seee 7 4 
: 260 0386 1! 
: 261 0387 1! 
; $0¢ 0388 #1! 
; 2€ Bean 73 
: 264 390 1! 
; 265 0391 1! 
; 266 O336 1! 
3 sof 0393 1! 
: 268 0394 1! 
: 269 0395 1! 
: 270 0396 1! 
: 271 0397 1! 
; sie 0398 1! 
ar 0399 1! 
: 274 0400 1! 
3 ee? 0401 1! 
; sis Bebe 1! 
3 77 403 1! 
; 278 0404 1! 
; 44 0405 1! 
; 280 04 1! 
s 2s 0407 1 
3 see 0408 
; $3 0409 
3; 6284 0410 
; § 5 411 
: £18 
; 287 41 
; 288 14 
: 289 15 
: 290 1g 
: 291 41 
: 3 418 
: 9 19 4 
: 294 0 4 
; 295 " 1 ¢ 
s 38 4 § ; 
; 298 0424 


2 
output (emphasis == bolding and underlinin 1h-s6 -1984 00:49:27 AX-11 Bliss-32 V4.0-74 
PH == do emphasis by overertn 1 . 99:58:85 t OTRCILOEMPN 


ZSBTTL 'OPEMPH == do emphasis by overprinting' 
GLOBAL ROUTINE OPEMPH 


ting 4-Sep-1984 RUNOFF ..SRCJLOEMPH.BLI; 


haracter 

- italics 

» adr_emphasis_bits 
» overstrike_count 
» overstrike_char 

» overstrike_seq 
pass _cntr 
5: NOVALUE = 


lee 


FUNCTIONAL DESCRIPTION: 


OPEMPH processes emphasis -- bolding and underlining -- for 
the normal case in which the user did not say either /BACK, 
/DEC_INTERNAL=FLIP, /DEVICE=VT100, or DEVICE=LNO1Ce). 


i FORMAL PARAMETERS: 


character is the current character to be output (emphasized). 
italics Not used by this routine -=- passed for conformance only. 
adr_emphasis_bits Address of a word cont ptntng information on current- 
character and previous-character bold and underline. 
overstrike_count Number of characters in an overstrike sequence 
pesese for conformacne only). 
overstrike_char The character with which to overstrike the previous one. 
overstrike seq CHSPTR to the start of an overstrike sequence. 


pass_cntr Count of which pass is happening. 
i IMPLICIT INPUTS: None 
i IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 
i COMPLETION CODES: None 
SIDE EFFECTS: None 
BEGIN 


BIND emphasis_bits = .adr_emphasis_bits; 
SELECT .pass_cntr OF 
SET 


Cpass_setup, pass_bold) : 
r BEGIN rede 


! Generate non-spacing underscore if requested 


IF (,emph_current_underline 
D .outopt_und_nosp 

ae NOT .ouftopt_und_sep) 

| nes noel EQL pass_setup) OR .emph_current_bold 


Page ‘ 7 


v0 


TES; 
END; ! End of OPEMPH 


es 

LOEMPH Line output (emphasis -- bolding and underlinin 16-Sep-1984 00:49:27 AX-11 Bliss-32 V4.0-74 
v04-000 OPEMPH == do emphasis by overprinting 12288-1382 90: 06,84 RUNOFF SRESLOEMPN: BL tc 
: +4 r 5 ; fs.wehar (fra, .outopt_und_char); 

: 301 4 ; ! Generate character 

: 06 " § 3 Hey Pens.cntr EQL pass_setup) OR (.emph_current_bold) 

: 304 430 4 fs_wchar (fra, .character) 

; #09 431 3 ELS 

; 306 4 4 fs_wehar (fra, %C' ') 

ef oe 

: 309 435 Cpass_overstrike, pass _bold_overstrike] : 

s 310 4, $ ' Process oyerstrik ng. At this point it is only known that this 
3 4 tcharacter is a special character, and that overstriking is being 
3 \¢ 438 ‘processed. It has not yet been determined whether or not this 

, 2 Be 9 ‘character is to be overstruck. Just pugting out overstrike_char 
3; 314 440 twill result in NULLS being output if this character is not fo be 
3 219 0441 toverstruck, but is none-the-less a special character. Using MAX 
: 16 pres makes sure that NULL never gets output. This makes an implicit 
: 317 044 ‘restriction, i.e., that the user will never try to overstrike 

; Sie 0444 ‘with a character LSS %C° *. If this is unduly restrictive, MAX can 
ee hb, 0445 ‘be replaced with a simple test to see if overstrike_char is NULL 
; 359 ere ‘or not. 

: $58 0448 IF (.pass.cntr EQL pass_overstrike) OR (.emph_current_bold) 

3 ie 0449 ¢ THEN 

; 324 0450 fs_wehar (fra, MAX(ZC' ', .overstrike_char)) 

; 352 0451 § ELS 

3 327 beg fs_wehar (fra, %C' '); 

: 328 0454 Cpass_underline) : 

3 $68 0455 'Process underlining. 

: $39 bees if -emph_current_underLline 

; 336 0458 fs_wehar (fra, .outopt_und_char) 

| 0459 ELSE 
}3 te Reed fs_wehar (fra, %C' '); 

: $39 046 Cpass_bold_underline] : 

3 Sor 046 ‘Process underlining if also bold. 

; * Reee IF ,enphcurrent_underl ine AND .emph_current_bold 

: 340 0466 fs_wchar (fra, .outopt_und_char) 

; «341 46 ELS 

: +g ? fs_wehar (fra, %C* '); 

; 344 70 Cpass_real_text) : 

: 5 471 fs_wehar (fra, .character); 
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AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJLOEMPH.BLI; 


OUTOPT, R4 
FRA+4, R 

ADR_EMPHASIS BITS, R2 
PASS_CNTR, RT 

R1 Oo #2 


#2, (R2), 2$ 
OUTOPT+4, 2$ 
QUTOPT+6, $ 
Ri, #1 

#1, (R2), 2$ 
pT, aFRA+4 


3$ 
#1, (R2), 4$ 
CHARACTER, aFRA+4 


<—f— 
. 
a 
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#32, RO 
RO, @FRA+4 


#32, @FRA+4G 

FRAS4 

hs 

Ri, # 

14 

#2, (R2), 12% 

i a aFRA+4 

#32, @FRA+4 

FRA+4 

FRA+12 

Ri, #4 

17$ 

ae, (R3), 15$ 

#i. (R2). 15$ 
foPT, aFRA+4 

#32, aFRA+4 

FRA+4 

FRA+12 
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v04-000 OPEMPH = do emphasis by overprint ing 12786871382 99:58:88 RUNOFF .SRCILOEMPH.BLI; . (35 
07 jh B8 17$: CMP R1, #7 ; 0470 

A BB BNE 1 ; 
00 «683 06 =A B MOVB CHARACTER, @FRA+4 3 0471 

635 D C INCL FRA+4 : 

08 A C INCL FRA+12 : 
C7 18$: RET 3 0475 


; Routine Size: 200 bytes, Routine Base: SCODE$S + O0BD 
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Laat eaet hasized ch for FLIP ‘ | 
=- process emphasized character for FL output 
GLOBAL ROUTINE FLERPH : | 
( character 
» italics 
» adr_emphasis_bits 
pass_cntr 
§ : NOVALUE = 


ae 
FUNCTIONAL DESCRIPTION: 


FLEMPH processes 7 -- bolding and underlining -- for 
FLIF output (VMS only), if the user said /DEC_INTERNAL:FLIP. 


FORMAL PARAMETERS: 


character is the current character to be output (emphasized). 
It is -1 if emphasis is to be turned off. 


' 
i 
i 
i 
i 
1 
i 
i 
i 
' 
' 
i 
character and previous-charac 
i 
i 
i 
i 
i 
i 
i 
i 
i 
in 


italics Not used by this routine -=- passed for conformance only. 
adr_emphasis_bits Address of a word er) information on current- 
er bold and underline. 

pass_cntr Count of which pass is happening. 

IMPLICIT INPUTS: None 

IMPLICIT OUTPUTS: Noe 

ROUTINE VALUE: 

COMPLETION CODES: None 

SIDE EFFECTS: None 

REGIN 


BIND emphasis_bits = .adr_emphasis_bits; 
IF .character EQL -1 
THEN 
' Turn emphasis off and return. 
BEGIN 


IF .emph_previous_bold 
THEN 
BEGIN 
emph_previous_bold = false; ' 
rs wehar (fra, flip$k_end_bold); 
IF .emph_previous_under Line 
HEN 
GIN 
emph_previous_underline = false; 
fs_wehar (fra, flip$k_end_under line); 


END; 
RETURN; 
END; 


ee ee ee en ee ee ee ee ee ee ee ee eS SY 


e output (emphasis -- woteing and underlinin 18 
PH == do emphasis by overprinting 1 


! This call is a request to turn ON emphasis. 
ZELECTONE 1 OF 


2 
-Sep-1984 00:49:27 AX-11 Bliss-32 V4.0-74 
735p-1382 19:08:86 RUNOFF .SRCJLOEMPH.BLI; 


ange prov tous pots AND (NOT .emph_current_bold)]: 
fs_wehar (fra, flip$k_end_bold); 
enh _previous_pold = False; 
END; 

SCNT, ,onh_previous_peld) AND .emph_current_bold]: 
fs_wchar (fra, flip$k_start_bold); 
enph previous bold = Erue; 


Cotherwise): 
0: 


TES; 
SELECTONE 1 OF 
SET 


R-onge prov taus sndert ine AND (NOT .emph_current_underline)]: 


fs_wehar (fra, flip$k_end_underline); 
“7 Phpastdac: sateen iad = false; 


Foy oF oP oP oP ot ot ot of of of ot ot at ot ot MMe 
UEWN HOO DNOUE WN HODODNOUL WROD 


Bes erg eye! tet ae the oh ete ube a at ot tt tt OOO 
~ 


SANET 9nh previous deri tne? AND .emph_current_underline): 
fs_wchar (fra, flip$k_start_underLline); 
San Sr erraee Jensen s he = true; 


Cotherwise): 


TES; 


'Now output the character to which the emphasis applies 
fs_wchar (fra, .character); 


END; ! End of FLEMPH 
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Tee RPL US ROKeN hasized ch for VT100 ‘ | 
-- process emphasize t 
GLOBAL ROUTINE VTEMPH cnereccer rer output 
( character 
» italics 
» adr_emphasis_bits 
pass_cntr 
§ > NOVALUE = 


4% 
FUNCTIONAL DESCRIPTION: 


! 
i 
: VTEMPH writes the prgper escape sequences on the FRA to handle 
underlining and bolding if the user said /DEC_INTERNAL:VT100. 
! FORMAL PARAMETERS: 
i character is the current character to be output (emphasized). 
! italics Not used by this routine -=- passed for conformance only. 
' s -1 if emphasis is to be turned off. 
} adr_emphasis_bits Address of a word was Hen information on current- 
, character and previous-character bold and underline. 
pass_cntr Count of which pass is happening. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 
COMPLETION CODES: None 
! SIDE EFFECTS: None 
BEGIN 


BIND emphasis_bits = .adr_emphasis_bits; 

SSTR_DESC_INIT (DESCRIPTOR= work_string, CLASS=DYNAMIC); 

: Before processing the character, make sure that (1) there will be sufficient space in the 
! output buffer to turn off emphasis and then turn it back on again, and (2) the output Line 
! is not too long for the operating sygtes to handle. 

IF > fp_.tongth (fra) GTR (.fs_maxsize (fra) = 20) ! Need at least 20 characters. 


. 4’ {8a tength (fra) GTR max_output_line_Length ! Reasonable output-Line maximum Length 
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BEGIN 
clh (clh_out_nocrlf); 
fs_init TfraJ; 
END; 
a character EQL -1 
Lee off all emphasis and return, 
S5TR. COPY (TARGET= work _string, STRING= 


me ee em ee ee eB a ed ad ed ed dd 8 ed od od dd dd 8 Sd dd wd 


SS . — = 5 


Ture on bolding. 


SSTR_COPY (TARGET= uork string. STRING 
SSTR_CONCAT (ZCHAR(@scape), ‘C', ' 


write_emphasis; 


1", nm) | 


2 

LOEMPH Line output (emphasis == bolding and underLinin 18-5¢ =1984 00:49:27 AX=11 Bliss-32 V4.0-74 Page 16 LOH 
v04-000 OPEMPH = do emphasis by overprinting 1 30071382 99:58:86 RUNOFF SRESLOEMPH BL 124 ° (7) | vo4 
: 312 U 0636 1 SSTR_CONCAT (ZCHAR(escape), 'C’, 'O', 'm’ ) | 3 
; 514 U 06 8 1 write emphasis; : 
3 «(319 U 06 1 - 
; 16 U 0640 1 emph_previous_bold = false; : 
.: Fy U 0641 1 emph_previous_underline = talse; ; 
; 3 U otg 1 ; 
: 519 U 0643 1 RETURN; ; 
; 520 U 0644 1 END; ; 
3 «(Del U 0645 1 $ 
ae § Y poe8 : ! This call is a request to turn ON emphasis. : 
; ; 4 U Ost 1 ! If bolding and underlining are the same as for the previous character, : 
; 2 5 U 0649 1 ! do nothing. Otherwise, if there is a difference, we have to turn off ; 
; 6 U bees 1 ! everything so we can turn on only the one we want. ; 
3 é f ¥ Bo2) : IF (-emph_current bold NEQ .emph_previous_bold) ; 
; 2 , : 0356 : (.,emph_current_underline NEQ .emph_previous_underl ine) : 
3 Dor u 0655 1 !Different status for at least one of them. ‘ 
: 236 U Bo28 1 BEGIN : 
; > U 0657 1 IF .emph_previous_emphasized NEQ 0 ; 
;.% u 0658 1 THEN : 
. 2a5 U 0659 1 BEGIN : 
; 536 U 0660 1 ! Disable both of them (unless we're starting from a condition 3 
oe U 0661 1 ! of no emphasis already). : 
; Se U pees 1 SSTR_COPY (TARGET= work_string, STRING= ; 
; 539 U 0663 1 SSTR_CONCAT (XCHAR(@scape), 'C', ‘0°, ‘m' ) ; 
; 540 U 0664 1 ; $ 
; «541 U 0665 1 write_emphasis; : 
; at§ U 0666 1 ND; 3 
g 34 U 0667 1 F 
; 544 U 0668 1 ! Turn off both history bits. The right ones will get turned on soon. 3 
: 545 U 0669 1 emph_previous_bold = false; 3 
; 546 U 0670 1 emph_previous_underline = talse; - 
> 547 U 0671 1 3 
: 548 U bere 1 !Now turn on only the emphasis that's wanted. — : 
; 549 U 0675 1 IF .emph_current_underline !‘Underlining wanted? ; 
; 550 U Bore 1 THEN : 
gs 3} U 0675 1 'Turn on underlining. 
; 226 U 3678 1 N 
s 33 U bee 1 SSTR_COPY (TARGET= work string. STRING= | 
; ee u 078 ! SSTR_CONCAT (ZCHAR(@scape), 'C', '4', 'm' ) 
; 82 U o80 1 write_emphasis; 
s Sor U co 
; 338 U a6 1 'Turn on the nistory bit for underlining. 
; 228 Y ? : en h_previous_underline = true; 
; 264 U 1 IF .emph_current_bold 'Bolding wanted? 
3 266 U 1 THEN 
3; 3 U 1 
; 564 U 1 
; 565 U 1 
3 $8 U 1 
; 2 U 1 

68 U 1 
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M 2 
output (emphasis -- eg ae and underlinin Jon~se0~ 1386 00: e838 AX=-11 Oi lege 3e V4.0-74 Page 7 L 
PH == do emphasis by overprinting 14-Sep-1984 13:06: RUNOFF .SRCJLOEMPH.SLI; (7) Vv 
1 
1 'Turn on fhe history bit for bolding. 
: > at ous_bold = true; 
: END; . ‘End: turn on appropriate bits 
1 'Now output the character to which the emphasis applies. 
! fs_wehar (fra, .character); 
1 END; ! End of VTEMPH 
1 MFI 
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LOEMPH Line output (emphasis == bolding and underlinin 16-Sep-1984 00:49:27 AX-11 Bliss-32 V4.0-742 LOH 
v04-000 OPEMPH == do enphasis by overprint ing 127808718 4 99:58:86 LRUNOF Fe SRE LOEMPH.BLI; 1 v04 
; Be) 704 1 ZIF_LNO1 XTHEN ; 
3 (3S 705 1 &SBTTL ‘LNEMPH -- process emphasized character for LNO1 output’ : 
: 8 7 $ 1 GLOBAL ROUTINE LNEMPH : 
; 586 07 1 ( character ; 
>; 3585 708 1 » italics $ 
; 586 709 #1 » adr_emphasis_bits ; 
; 587 710 #1 » overstrike_count ; 
3 288 711 «1 + overstrike_char ; 
; 589 ar: 1 » overstrike_seq ‘ 
; 590 713° «1 pass_cntr ; 
: 591 0714 1 5: NOVALUE = ; 
; 236 got? 1 3 
: 59 at 1 !¢¢ : 
; 594 0717 1 ! FUNCTIONAL DESCRIPTION: : 
: 2 0718 1! : 
; 596 0719 1! LNEMPH writes the prgper escape sequences on the FRA to handle ; 
: red Brsy : underlining and bolding if the user said /DEVECE=LNO1Le). : 
F 4 He, : The escape sequences written have the form of a font change: : 
; 601 0724 1! <esc> C Nm : 
; 8752 , 3 3 
; ret 8559 ! where N = 12 (text), 13 (bold), 14 (italic), or 15 (bold italic). ; 
; 605 0728 1! The SGR (select graphic rendition) escape sequences used for : 
; 606 3494 1! underlining have the same format exactly. N = 24 turns underlining 3 
; 607 0730 1! on, and N = 4 turns it off. . 
; 608 0731 1! : 
; 609 B58 1 ! FORMAL PARAMETERS: : 
; 610 07335 1! : 
$ 611 0734 1! character is the current character to be output (emphasized). ; 
: 6l2 0735 1! It is -1 if emphasis is to be turned off. : 
: 613 0736 1! italics is TRUE if real italics (fonts 14 and 15) are to be ; 
: 614 0737 1! used, and FALSE if underlining is to be used. : 
3 6615 0738 1! adr_emphasis_bits Address of a word a ban information on current- : 
; 616 0739 1! character and previous-character bold and underline. 3 
; 617 0740 1! overstrike_count Number of characters in an overstrike sequence. : 
; 618 0741 1! overstrike_char The character with which to overstrike the previous one. $ 
; 619 toe ; overstrike_seq Not used by this routine -- passed for conformance only. 3 
3 ost Betz ' pass_cntr Count of which pass is happening. ; 
F os¢ 0745 1 ! IMPLICIT INPUTS: None 3 
B 6G 0746 1! 3 
3 or 0747 1°! IMPLICIT OUTPUTS: None 3 
; 625 Bree 1! 3 
; 626 749 1° ! ROUTINE VALUE: : 
3 os? 0750 1 ! COMPLETION CODES: None 3 
; 628 0751 1! 3 
3 66? $736 1 ! SIDE EFFECTS: None : 
: 6350 0753 1 !-- 3 
: 631 754 «1 : 
; O36 755 BEGIN : 
3; 63 726 ; 3 
3 tr 3 BIND emphasis_bits = .adr_emphasis_bits; : 
: 636 29 LITERAL : 
3 Oar 0760 text_font = 12, : 


| 


: Before processing the character, make sure that (1) there will be 

: sufficient space in the output buffer to turn off emphasis and then 

' turn it back on again, and (2) the output Line is not too long for 

! the spores <8 system to handle. 

IF .fs_le fra) GTR (.fs_maxsize (fra) = 20) ! Need at least 20 characters. 


-fs_length (fra) GTR max_output_Lline_length ! Reasonable output-Line maximum Length 


ngth 


clh (clh_out_nocrlf); 
fs_init TfraJ; 


3 | 
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v04-000 NEMPH == process emphasized eheracter for LNO1 1278687138 90:60:85 RUNOFF ..SRCJLOEMPH.BLI; ° (8) voe 
638 761 bold_font = 13 | . 
639 16 ‘tale font = 14, ee 
640 76 bold_ifalic_font = 15; = 
641 764 e.4 
64 765 LOCAL ‘ 
64 £68 previous_font, ‘ 
644 76 new_font, : 
645 768 underline_sgr; : 
646 769 ‘ : 
647 770 i Initialize. | : 
ah EO tea to 86 ea) 
previous_font = 0; ; 
650 7 g new_font = 0; ‘ 
651 774 ynders ine.gr = 0; 
63¢ , 3 SSTR_DESC-INIT (DESCRIPTOR= work_string, CLASS=DYNAMIC); 
654 777 tesdepus 
655 778 IF (.pass_cntr EQL pass_overstrike) AND .tsf_ovr 
656 779 THEN 
657 780 BEGIN ; 
658 781 If {.overstrike_count NEQ 0) 
659 7 ; N 
660 7 
661 784 
4, 785 fs_wechar (fra, %C' '); 
66 786 RETURN; 
664 787 ; 
665 788 !*tend-debug 
789 
790 
z 1 
198 
794 
795 
796 
797 
798 
799 
800 
8 
8 
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Calculate the font number used for the previous character. (It will be 
used to determine whether any font change is needed.) The calculation 
depends on the definition of em h_pre $ 
is a e-bit field having values 0, 1, Ge This value is added to the 
‘base’ font (text_font = 12). jf italics are not being used, the font 
number must be decremented by 2. 


be 
, fs_wohar (fra, MAX(%C° *, .overstrike_char) ) 


y tous _gapbae izes (a macro), which 
or 3. 


previous_font = .emph_previous_emphasized + text_font; 
IF (.previous_tont GEQ italic_font) AND (NOT .italics) 

previous_font = .previous_font - 2; 
IF .character EQL -1 | 
THEN 
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3 
ut (emphasis == bolding and underlinin 16-5 -1984 49:27 AX-11 Bliss-32 v4.0-74 
H = process emphasized character for LNO1 1 > 90: 36.84 ¢ 


-Sep-1984 

; ven off all emphasis and return. 

Reset to text font if not already in that font. 
IF (.previous_font NEQ text_font) 

THEN 


SSTR_COPY (TARGET= work string 
SSTR_CONCAT ( ZCHARTescapes 


$STR_ASCII (text_font) 
m 


RUNOFF ..SRCJLOEMPH.BLI; 


STRING= 


j 
3 
Turn off underlining too if it was on. 


if (.emph preyious_under line 'Underlining on? 
AND NOT .italits) ‘Really underlining, not italics? 


N 
SSTR_APPEND (TARGET= work_string, STRING= 
SSTR_CONCAT ( TEHAR (eScape) 
' m' 


j 


write_emphasis; 


emph_previous_bold = false; 
emph_previous_underline = false; 


RETURN; 
. END; 
This call is a request to turn on emphasis. Determine what the new font 
should be. The calculation depends on the definition of emph curremt_emphasized 
(a macro), which is a 2-bit field pov ing values 0. 1, 2, or 3. This Value is 


added tc the ‘base’ font (text_font = italics are not being used 
the font number must be decremented by 2. 


new_font = text_font + .emph_current_emphasized; 
on erent GEQ italic_font) AND (NOT .italics) 
new_font = .new_font - 2; 
! If we are doing underlining (not true italics), then set up the new 
! font number to take advantage of the fact that the Underline On and 


Underline Off SGR escape sequences have exactly the same format as a 
! font change. 


' 
if NOT italics 
THEN 

BEGIN 


Fg nen turrent_undort ine AND (NOT .emph_previous_underline) ) 


underline_sgr = 4; 'Underline On SGR: <esc> C 4m 
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6:55 RUNOFF .SRCJLOEMPH.BLI; 
if ; (NOT .emph_current_underline) AND .emph_previous_underline ) 
OD ain itte stall = 24; !Underline Off SGR: <esc> C 24 m 


IF Caprev ious. font NEQ .new_ font) 
— OR (.underline_sgr NEQ 0) 


N 
BEGIN 
$STR_DESC_INIT (DESCRIPTOR= work_string, CLASS=DYNAMIC); 


! 
:Switch to the new font. 
iF -previous_font NEQ .new_font 


SSTR_COPY (TARGET= work_string 
SSTR_CONCAT ( XCHARTescape) 


- SSTR_ASCII (.new_font) 
'm' 


STRING= 


); 
IF .underline_sgr NEQ 0 


SSTR_APPEND (TARGET= work string, STRING= 
SSTR_CONCAT ( XCHAR(eScape) 


> tes 

» $STR_ASCII (.underline_sgr) 
m 

j 

write_emphasis; 


emph_previous bold = .emph_current_bold; 7 
emph_previous_underline = .emph_current_underline; 


'Now output the character to which the emphasis applies 
fs_wchar (fra, .character); 


END; ' End of LNEMPH 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
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LOEMPH Line output (emphasis -=- bolding and underlinin 16-Sep-1984 00:49:27 AX-11 Bliss- 4.0-74 
Oem 00 LNEMPH == process emphasized shirecter for LNO1 12-828718 4 90 b0:86 RUNOFF SRE BO oN BF 
SSTRSTARGET= WORK_STRING 
.EXTRN XSTSCOPY? STRSFAILURE 
sEXTRN XSTSJOIN, XSTS$ASCII 
.EXTRN XSTSAPPEND 
«PSECT $CODES,NOWRT,2 
OFFC 00000 .ENTRY LNEMPH, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- ; 0706 
B 000000 96 EF 9E 90003 MOVAB XSTSASCII, R11 : 
A G EF 9E 0000 MOVAB STRSFAILURE, R10 : 
9 G EF 3 019 MOVAB XSTSJOIN, R9 : 
8 G EF 9E 0001 MOVAB FRA+ : 
000000 * EF 3 0018 MOVAB $STRSDESC, R7 : 
52 c AC 00 MOVL § ADR_EMPHASIS_BITS, R2 : 0757 
54 7C 00029 CLRQ ON + 0773 
53 D4 00028 CLRL _- UNDERLINE_SGR + 0774 
67 02060000 BF DO 0002D MOVL  #34471936, SSTRSDESC : 0775 
04 AZ? D4 00034 CLRL © $STRSDESC4+4 : 
05 1¢ AC D1 00037 CMPL - PASS_CNTR, #5 : 0778 
2A if 0038 BNEQ 4$ : 
50 000000006 EF D 903p MOVL : 
1€ 08 Ac 2 €1 00044 BBC #2,°8(RO), 4$ : 
10 AC b3 00049 TSTL VERSTRIKE_COUNT + 0781 
12 13 0004C BEQL ; 
50 14 AC Dd 0004 MOVL § OVERSTRIKE_CHAR, RO : 0783 
20 30 D1 9009 CMPL = RO, #32 ; 
03 18 0005 BGEO : 
50 20 dO 0005 MOVL #32, RO : 
00 «88 0 90 00034 1$: MOVB RO, @FRA+4 : 
04 11 O05 BRB : 
00 88 20 90 0006 a8: MOVB #32, @FRA+4 + 0785 
018D 31 00064 $: BRW 4$ : 
50 04 a8 14 C3 00067 4$: SUBL3 #20, FRA+8, RO + 0794 
50 08 as Di 0006¢ CMPL FRA+12, RO F 
0A 14 0007 BGTR : 
QOO000FA BF 08 a8 01 00072 CMPL FRA+12, #250 : 0796 
15 15 OOO7A BLEQ 6$ : 
0B DD 0007C S$: PUSHL #11 : 0799 
000000006 EF 01 FB OO7E CALLS #1, cL : 
08 ABS D4 0008 CLRL RA+1 : 0800 
FC OA C (AB 9E 00 VAB -FRA+16, FRA ; 
6 A8 DO 0008D MOVL FRA, FRA4 : 
55 62 9 3 EF 0 1 68: EXT2V #3, #2, (R2), PREVIOUS_FONT : 0810 
¢ CO 3% ADDL2 #12, PREVIOUS_FONT : 
0€ D1 CMPL § PREVIOUS_FONT> #14 > 0812 
07 19 0009C¢ ass ?F : 
93 08 AC E BLBS _—sC+ITALICS, 7$ ; 
02 C A SUBL2 #2, PREVIOUS_FONT > 0814 
FFFFFFFE © BF 06 AC D AS 7$: CMPL HARACTER, #=1 : 0816 
4 1 AD BNEQ 2s s 
0c D AF CMPL § PREVIOUS_FONT, #12 > 0822 
A 1 B2 BEQL ; 
7E C £0 B4 mova ai -(SP) : 0830 
7E 0903 8F 3¢ 00087 MOVZWL a6 67, =(SP) ; 
68 ; FB OO0BC CALLS #3, XSTSASCII : 
18 A? 9F O00BF PUSHAB $STRSSTRING F 


<- 
44 
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Line output (emphasis -- bolding and underlinin bese -1984 00:49:27 AX-11 Bliss-32 V4.0-74 Page 24 LOH 
LNEMPH = erecess emphasized chbrecter for LNO1 1a-8ep 1382 90:68:85 RUNOFF. SRC ILOEMPH, neg . BS v04 
50 DD ce PUSHL RO ; 
10 A? 9F 000C PUSHAB $STRSSTRING! : 
08 aA? 9F 000C7 PUSHAB $STRSSTRINGO : 
69 4 FB OOOCA CALLS #4, XSTSJOIN : 
A dd 000CD PUSHL R10 : 
E D4 OOOCF CLRL. = = (SP) : 
0081 gF BB 00001 PUSHR #*M<RO,R7> : 
: D4 D3 CLRL 548?) : 
000000006 EF 0 FB D CALLS #5, XSTSCOPY : 
E 62 4 ¢ DE 8S: BBC #4, (R2), 9$ + 0834 
1A 0 AC 8 OO0E BLBS ITAL ics 9$ + 0835 
- A? SF OOOE PUSHAB $STRSSTRING! + 0841 
A? 9F ODODE PUSHAB $STRS$STRINGO F 
69 2 FB OOOEC CALLS #2, XSTSJOIN : 
A DD OOOEF PUSHL R10 : 
E D4 000F1 CLRL. = (SP) : 
0081 i BB OOF 3 PUSHR #*M<RO,R7> : 
‘ D4 OOOF CLRL = = (SP) ; 
000000006 Ef 0 FB 00F9 CALLS #5, XSTSAPPEND : 
6 04 A? p 0100 9$: MOVL §§ WORK_STRING+4, PTR : 
51 67 C 00104 MOVZWL WORK STRING, R1 ; 
0 d4 00107 CLRL : 
09 11 00109 BRB 1$ ; 
00 88 86 90 00108 10$:  MOVB (PTR)+, aFRA+4 : 
68 06 0010F INCL FRA+4 : 
08 a8 D6 0111 INCL FRA#+12 : | 
F3 50 51 F3 00114 118 ADBL EQ R1, I, 10$ ; 
62 18 8A 00118 BICB2 #24, (R2) > 0845 
04 00118 RET : 0819 
62 02 1 €F dori¢ 12$ EXTZV #1, #2, (R2), NEW_FONT : 0856 
54 ¢ ¢€0 00121 ADDL2 #12, NEW_FONT ; 
OE 4 01 901 4 CMPL NEW_FONT. #14 : 0858 
07 19 00127 BLSS 13$ : 
1D 08 aC CE 91 9 BLBS_—sC:ITALICS, 16$ : 
54 02 ¢2 00120 SUBL2 #2, NEW_FONT > 0860 
16 08 AC €8 00130 138 BLBS ITALICS; 16$ : 0867 
0B 6 2 €1 001 BBC #2, (R25, 15$ : 0871 
03 6 4 €0 001 BBS a4, (R2). 14$ : 
5 4 D9 91 C MOVL #4, UNDERLINE_SGR : 0873 
07 6 2 £0 0013F 148: BBS #2, (Re), 16$ : 9875 
03 6 4 €1 00143 15$: BBC #4. (R2). 16$ ; 
5 18 DO O14 MOVL a2, UNDERLINE _SGR : 0877 
9 D4 OO14A 168 CLRL : 0880 
54 bt 14¢ CMPL PREVIOUS FONT, NEW_FONT ; 
s 14F BEQL 17 : 
0 06 151 INCL ; 
7.3 1 BRB 18$ : 
DS 00155 178: TSTL UNDERLINE _SGR + 0881 
0093 $7 00189 Hees : 
67 020E0000 8F D0 001 : 18$:  MOVL  #34471936, SSTRSDESC : 0885 
a OM RS ARG Gime gatmngscs ao 
7: D4 001 CLRL Os = §P) : 0898 
4 bp 1 PUSHL NEW FONT : 
7E 0903 BF 3C 1g MOVZ2WL #2307, -(SP) ; 
68 3 FB 001 CALLS #3, XSTSASCII : | 
| 
} 
| 
J 
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LOEMPH Line output (emphasis <= bolding and underlinin 16-Sep-1984 49:27 AX-11 Bliss-32 V4.0-74 2 
Loe 000 LNEMPH == process emphasized chiracter for LNO1 127808-1 382 90: be:86 RUNOFF. SRCILOEMPH.BLI: — (BS 
40 A? OF 175 PUSHAB SSTRESTRINGS F | 
50 D 001 PUSHL R ; | 
38 A? 9F OO17A PUSHAB $STRSSTRING! : 
A? 9F 0017 PUSHAB $STRSSTRINGO : 
69 4 FB 001 CALLS #4, XSTSJOIN : 
A DD 001 PUSHL R10 : 
E D4 001 CLRL. = = (SP) : 
0081 or BB 001 PUSHR #*M<RO,R7> : 
D4 00188 CLRL = = (SP) : 
000000006 EF Q F 18D CALLS #5, XSTSCOPY : 
D5 00194 19$: _‘TSTL UNDERLINE _SGR + 0900 
<8 1 196 BEQL 0$ ; 
: D4 001 CLRL = = (SP) : 0908 
5 bp 19A PUSHL UNDERLINE SGR : 
7E 0903 BF C 0019¢ MOVZWL ae 7, =(SP) : 
68 3 FB OO1A1 CALLS #3, XSTS$ASCII F 
58 A? OF OO1A4 PUSHAB $STRSSTRING : 
50 DD OO1A7 PUSHL RO : 
50 A? 9F 001A9 PUSHAB $STRSSTRING1 : 
48 A? 9F OOTAC PUSHAB $STRSSTRINGO ; 
69 04 FB OO1AF CALLS #4, XSTSJOIN ; 
5A DD 001B2 PUSHL R10 : 
7E D4 001B4 CLRL. = (SP) : 
0081 8F BB 001B6 PUSHR #*M<RO,R7> : 
43 D4 OO1BA CLRL = = (SP) ; 
000000006 a 05 FB O01B¢ CALLS #5, XSTSAPPEND ; 
3 04 A? p0 Ooi¢ 208:  MOVL WORK_STRING+4, PTR : 
51 67 3C 001C7 MOVZWL WORK"STRING, R1 ; 
50 D4 OOiCA CLRL : 
09 11 001CC BRB 2$ ; 
00 88 83 90 O01 CE 21$:  MOVB (PTR)+, aFRA+4 : 
68 06 9010 INCL  FRA+4 : 
08 As Dg 0104 INCL  FRA+12 ; 
F3 50 51 F3 00107 228 AOBLEQ Ri, 1$ : 
50 62 01 01 EF 001DB EXTZV #1. #1, (R2), RO : 0911 
62 01 03 50 FO 001E0 INSV RO, #3. #1, (R2) : 
50 62 01 08 EF OO1ES EXTZV #2. #1. (RO), RO > 0912 
62 01 04 50 FO OO1EA INSV RO, #1, (R2) F 
00 «B88 04 AC 90 OO1EF 23$: MOVB CHARACTER, @FRA+4 + 0917 
68 D6 OO1F4 24$: INCL  FRA+4 : 
08 AB D6 001F6 INCL  FRA+12 ; 
04 001F9 RET : 0919 


; Routine Size: 506 bytes, Routine Base: $CODE$ + 0185 


; 797 0330 1 FI 

; 798 0921 1 

; 799 8358 1 END ' End of module 
; 800 09 0 ELUDOM 


: PSECT SUMMARY 


; 


RTE SYSLIBIXPORT. 
$255$DUA28: LRUNOFF ..SRCIDS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LOEMPH/OBJ=OBJ$:LOEMPH MSRC$:LOEMPH/UPDATE=(ENH$:LOEMPH) 
895 sede : 110 data bytes 


00:4 


: ime 
; olla Time: 01:37.1 


; Lines/CPU Min: 1188 


; emery Used: 
; Compila 


294 pages 
tion Complete 


L32;1 59 
Ri 1a.L32:1 1308 


COMMAND QUALIFIERS 


n TbSep—1984 0:49 


Attributes 


WRT, RD ,NOEXE,NOSHR, 
EXE ,NOSHR 


MPH Line output (emphasis <= bolding and underlini 
-000 LNEMPH == process emphasized character for LNO 

Name Bytes 
SOWNS 36 NOVEC, 
SCODES 895 NOVEC,NOWRT, ‘ 9 ; 
SPLITS 14 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 

Library Statistics 
queiEEms Symbols 
File Total Loaded 


Percent 


2 


AX-11 Bliss-32 V4.0-7 
RUNOFF ..SRCJLOEMPH. BL: 


ON 
Y 


L EQUIPMENT CORPORA 
ENTIAL AND PROPRIET 


AH-BT13A-SE 
VAX/VMS_V4.0 


TA 
ID 


DIGI aR 
CONF = 


0343 


